unit ufraRegTreeView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ActnList, Menus, StdCtrls, Registry, JvExComCtrls,
  JvRegistryTreeView;

type
  TfraRegTreeView = class(TFrame)
    ActionList: TActionList;
    mnuView: TPopupMenu;
    List1: TMenuItem;
    actViewTreeView1: TMenuItem;
    N2: TMenuItem;
    Back1: TMenuItem;
    Expand1: TMenuItem;
    TreeView: TJvRegistryTreeView;
    ToolBar1: TToolBar;
    actBackToRoot: TAction;
    actHKCR: TAction;
    actHKCU: TAction;
    actHKLM: TAction;
    actHKU: TAction;
    actHKCC: TAction;
    actList: TAction;
    actTreeView: TAction;
    actClose: TAction;
    actExpand: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    View1: TMenuItem;
    Navigate1: TMenuItem;
    BacktoRoot1: TMenuItem;
    N1: TMenuItem;
    HKEYCLASSESROOT1: TMenuItem;
    HKEYCURRENTUSER1: TMenuItem;
    HKEYLOCALMACHINE1: TMenuItem;
    HKEYUSERS1: TMenuItem;
    HKEYCURRENTCONFIG1: TMenuItem;
    procedure actViewListExecute(Sender: TObject);
    procedure actViewTreeViewExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CONSTRUCTOR Create(OWner : TComponent); override;
    DESTRUCTOR Destroy(); override;
  end;

implementation
uses uRegCommon;
{$R *.dfm}

CONSTRUCTOR TfraRegTreeView.Create(OWner : TComponent);
begin
  Inherited Create(OWner);
end;

DESTRUCTOR TfraRegTreeView.Destroy;
begin
  Inherited Destroy();
end;

procedure TfraRegTreeView.actViewListExecute(Sender: TObject);
begin
TreeView.ShowRoot := False;
end;

procedure TfraRegTreeView.actViewTreeViewExecute(Sender: TObject);
begin
TreeView.ShowRoot := True;
end;

end.
